program ej11b; { Ejemplo 11 de CpcPaChi, con salto atras (bucle sin fin) }
const modo =0, linea1 = 10;
var
  color: byte;
label
  salto;

begin
  cpcMode(modo);
  color := 2;
  pen(color);
  paper(1);
  locate(10,linea1);
salto:
  writeChar( 'a' );
  goto salto;
end.

